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Algumas dificuldades com os meios técnicos 
disponíveis, impedem-nos de publicar alguns dos 
jogos que nos foram enviados pelos leitores. 
Prometemos retomar a publicação logo que nos 
seja possível ultrapassar as actuais dificuldades. 
No entanto, todos os programas que nos sejam 
enviados em cassette, poderão ser publicados 
sem qualquer dificuldade. 

Os prémios continuam a ser: uma assinatura de 
«JOGOS SORTIDOS», por seis meses, e um volume 
encadernado da revista de banda desenhada 
«JORNAL DA BD». 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque: de Palmela, 37, 2.º-Dto. —- 1200 LISBOA 
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POBRE 


Os professores estão em luta pelo aumento do salário. 
Já imaginou o que eles sofrem para merecerem o tão 
desejado aumento? Oferecemos-lhe uma oportunidade 
única para sentir, por si próprio, o ambiente típico de 
um dia numa escola igual a tantas outras. 
Problemas? Não espere ser bem sucedido na sua pri- 
meira tentativa para tentar resolvê-los. Melhor será que 
tente chegar até ao Director e pô-lo ao corrente da 
situação. Certamente que terá dele uma boa ajuda. 
Parece que os alunos não estão pelos ajustes de o 
deixarem falar com o Director e, acerca disso, não lhe 
darão facilidades. O primeiro écran mostra como você 
ficou encurralado por trás de uma pilha de carteiras 
que, aquele a quem todos chamam o Idiota, amontuou 
para não o deixar passar. Usando as chaves 5 e 8 
poderá mover-se para a esquerda e para a direita para 
ficar em posição de atirar com um livro à cabeça do 
tal Idiota utilizando a chave O. Se lhe acertar poderá, 
finalmente, escapar do seu cativeiro. 

À sua frente tem o corredor, onde está de atalaia aquele 
Cábula a quem já prometeu um chumbo, e que, de 
imediato, o fechará no armário do material didáctico. 
Experimente atirar-lhe com uma dessas bolas. Se con- 
seguir atingi-lo, escapará desta segunda armadilha. 


PROFESSOR 


No hall principal a sua vida torna-se bem mais difícil 
porque o Super Brigão se lembrou de lhe atirar com 
rebuçados em sucessão e com a força de que só ele 
é capaz. Se conseguir aproveitar um intervalo entre 
os rebuçados e chegar até à campaínha do Director, 
estará salvo porque ele não deixará de agarrar o Super 
Brigão e dar-lhe o castigo que merece. 

Ah, é verdade! Não se esqueça que o dia escolar é 
curto e que todas estas armadilhas têm que ser supe- 
radas antes que as aulas terminem. 


ESTRUTURA 


As linhas 3 a 60 dão-lhe as instruções. 

As linhas 70 a 490 constituem o primeiro nível, a sala 
de aulas. O corredor está compreendido entre as 495 
a 820. As rotinas do terceiro nível, o hall principal, 
estão nas linhas 830 a 1070 enquanto que as rotinas 
dos resultados finais e da maior pontuação se encon- 
tram nas linhas 1080 a 8130. 

As linhas 9000 a 9400 compreendem os gráficos e a 
melodia. 

Amigo professor, pegue no ponteiro numa mão e na 
apólice de seguro na outra e faça aquilo que pensamos 
ser o seu dever: fale com o Director. 


1 REM FEFRHEFEKLEXEKEEXKKKAKXKA 
X*Under lined characters 
tare enterei in * 
4GRAPHICS mode. x 
E E 
3 RESTORE 9994: FOR i=144 TO 
144: FOR n=8 TO 7: READ a: POKE 
USR CHRS i+n,a: NEXT nº: NEXT i 
> BRIGHT 1: PAPER 9: INK 7: B 
ORDER MM: CLS 
é LET hi=O: LET aõ="..." 
IM LET ofg=" 
e M O 
WU aL 


ATT a 
F T HE MUTAMRMOT 
LIES « 
: ; Guide yourself past the 
" IDIOTS' "BURKS" |, and DRE 
ADED , HORRIBLE , SUPER UALLY |! 
i | 1 (E) 

27 LET of=08+" You m 
ust get out of the Formroom , So 
down the corrídor , ând get thr 
ough the Entrance Hall to get to 
the Headmaster'z study to tell 

him how bad the; have been." 
Sa LET o$=08+" o . . Y 


| 
E 
x 
E” ou use "5" to move Left |, "8" “ ENTRANCE HALL. 
2 to move right |, *'7' to move up 
| s "48" to move doun and "9" to 
; fire. . . . . . Goo 

3 Luck (You'll need it !!!) 

Pres: any key to gtart q q 

“a SS PRINT AT 9,93 INK 235 PAPER 
+ ”*; * ARAARAAAAAAAAAaaaaaananaaaaaa 
ARA"JAT 2,95 INK 23 PAPER 7; "ARA PA to, 000, 08 AS RA SA 


4% FOR i=1 TO LEN 08-31: PRINT 
AT 1,95 INK 1; PAPER 4;j0&ti TO | 
| i+X1): FOR n=9 TO 190: MEXT nº: B 

EEP .991,49: NEXT i 


' sa PRINT AT 1,905 INK 55 PAPER - TIM - sq, -“Q a E 
$3* Press an; ke; to start Lj"Time : Mgts” 
199 PRINT AT 19,x5" "SAT 29,x5 
“a 5” IF INKEYS="" THEM GO TO 48 Ea dão 
“4a = n — “s .. 
“a LET os Press any key + 289 LET x=x+(INKEYE="8" AND x<2 
o start LERIOT 


9)-(INKEY$="5" AND x>1) 

214 PRINT AT 19,x5 INK 25"RS3S";A 
T 28,x5 INK 25 "TU" 

224 IF INKEY&="0" THEN GO TO 3 
aa 

225 IF z=1 THEM GO TO 394 

22” PRINT AT a,bs” "SAT ati,ks 


haz trapped y Ou in the tLack of t 
he formroom with desks. You must 
try. to zhoot Idiot and ezcape t 

hrough the CYA&At door. o “ . 


9% FOR i=i TO LEM o&-3S1l: PRINT 
AT 1,95 INK 55 PAPER 1;jo$(i TO 


+ PA RP 240 IF RHDL.S THEN LET E=b-1 
E RES POE BAR RS FOSSAS TO 252 IF RHD>.S THEM LET a=ati 
164: FOR n=7 TO 7: READ a: POKE os IF RHDZ.S THEN LET a=a-l 
USR CHRS$ itn,a: MEXT nº: NEXT i 245 BEEP .º1,-29 E 
' 97 CLS 2” IF a(Z THEM LET a=a+2 
, 19% PLOT 9,9: DRA 255,9: DRA 284 IF a>1S THEM LET a=a-2 
Q,17S: DRAW -255,9: DRAW 9,-175 281 LET t=t-1 
119 PRINT AT 9,125 PAPER 253 IMK ogo IF t<M THEM GOTO sega 
74 "FORMROOM" j 294 IF E<2 THEM LET b=b+2 
12% PRINT £7 INK 6; "BC"; 291 IF b>29 THEM LET b=b-2 
FLasn 151 PAPER Z; "EE"; FL 292 PRINT AT a,ks INK 35 "NO"sAT 
“ASH 95 INK 6; PAPER 9;:*8BC BC BC a+1,L5 INK F5"Po” 
BC BC BC BC BC EC" | 293 GO TO 189 
1324 PRINT AT 18,15 INK 65 "8º; zag IF z=1 THEN GO TO 328 
FLASH 15 IMK 235 PAPER 73" EFE") FL sas IF x=7 OR x=19 OR x=153 OR x 
ASH 24 INK é; PAPER 2; "HH E EM =16 OR x=19 OR x=22 OR x=25 OR x 
h E E Us 0 am mm" =28 THEM GO TO 315 
142 PRINT AT 1,315 IMK S;"D"sAT 319 GO TO 225 
2,31/" E" 315 LET c=18: LET d=x 
1S& PRINT AT £,23 INK 75 PAPER 3204 LET z=1: PRINT AT cds" c: 
a;" HIJELH * IF c=a AND d=b OR c=ati AND d=b 
151 PRINT AT 21,13 INK &; PAPER OR c=a AND d=b+1i OR c-=atl AHD d= 
1j"Time : 12M. Hi: By 5 E+1 THEH GO TO 488 
“sas 339 LET c=c-1: PRINT AT c,d; IM 
152 PRINT AT 21,18; INK 645 PAPE K 5S5ºG": IF c=2 THEN LET z=19: 
R 1thi PRINT AT 1,d$º "SAT 2,05" * 
15S LET x=29: LET a=2: LET bsi: 342 60 TO 227 
LET t=190: LET z=19: LET a=9 Naa LET ===+t 
189 PRINT AT 21,115 INK &; PAPER 425 TOR i=b TO 3 STEP -1 


9" 


Hi à 2 ” Buy - 


TA MNO ":. SA 


4124 PRIHT AT a,isj FLASH 17 PAPE 
R 24 INK 3S;"NOºJAT ati, ij FLASH 
15 IMK 745 INK 34" PO” 

415 BEEP .25,i: PRINT AT a,ij” 

“187. 042,37” .* 

420 NEXT i 

439 FOR e=a TO 17: PRINT AT e,5 
| FLASH 15 PAPER 75 INK SI"NO"SA 
T e+1,3/"PO“: BEEP .25,e: PRINT 
AT e,33" "“JãT e+1,31" “3 MEXT 
e 

440 FOR izx TO 3 STEP -1 

459 PRINT AT 19,15 INK 2;"R3"GA 
T 29,15 INK 25" TU” 

469 BEEP .92,29: PRINT AT 19,i;s 
* "SAT 40,41] á | 

472 NEXT i 

469 FOR i=17 TO 1 STEP -1i PRIN 
T AT 4,35 -IMK 2Z$ºRB53JAT 1t1,533% 
YU": BEEP .92,21:º PRINT AT 1,55” 

"RAN 343,57" "2 HEXT | 

499 FOR i=3 TO 39: PRINT AT 1,i 
3 JH 23"RSºSJÃãT 2, 8)" 19" BREP :- 
22,22: PRIBT AT 1,145" “JAT 2,i5 
Pon O MENTe s 

495 RESTORE 9199: FOR i=1i44 TO 
164: FOR n=Z TO 7: READ aí POKE 
USR CHRS itn,a: MEXT nº NEXT i 

Saga CLS 

Sig LET ofg=" 

The BURK iz lurki 
ng in the corridor. He haz locke 
3 you in your locker. You must f 
ire pellets at him to kill him. 
The only problem iz that vou hav 
e lesz time to do it. . : 


s24 PRINT AT 92,95 INK 25 PAPER 


G6G"; INK 5; PAPER 15" 
“4 INK 25 
PAPER 75; " GECGRCECCCEEEECECCEGCEG 


race | FORMROOM 


s39 FOR i=1 TO LEM 08-31: PRINT 
AT 1,8; PAPER 15 INK Sjo$(i TO 
i+31): FOR n=2 TO S: NEXT nº: BEE 
P .001,40: HEXT 1 

SIS FOR i=1 TO 599: NEXT i 

S4M CLS : PLOT Q,9: DRAI! 255,48: 


DRA 92,173: DRA -255,9: DRAU 9 


,5=175 

ssog PRINT AT 18,125 INK S;" JEI 
MKsAT 19,19; FLASH 1; PAPER 7; 
IMK 29"H"3 INK 25 FLASH 95 PAPER 
gs º RS"y INK 6" EºSAT 29,195 1 
NK 25 FLASH 13 PAPER 7Z5"H"; INK 
23 FLASH 9; PAPER 95" TU"; INK 
e 


Sss2 PRINT AT 9,15 INK S;ºL"; IMNO 


K 25º HN O P º4 INK 55" 0º 
sss PRINT AT 21,15 INK 6; PAPER 
1Iº"Time ; 73. Hi é RD DE E 
pas 
sé42 PRINT AT 21,15 INK é; PAPER 
trETimoe 2:70. Mi: Cº"CPntiAT 2iyz 


45º. By à "jam 


720 PRINT AT 9,125 PAPER 25 IHK 
75 "CORRIDOR"JAT 2,25; PAFER 05” 


309 LET a=2: LET b=19: LET zZ=1Y 


: LET t=?5 
S99 PRINT AT a,bs" 


“SAT atíi,b 


95 PRIHT AT 21,93; PAPER 15 IHK 

ES.” 

699 IF IHNKEY$&="4" THEM GO TO 7 
MA 

625 IF z=1i THEM GO TO 719 

61% IF RHD>.5S THEM LET a=a+1 

629 IF RMD(<.S THEN LET a=a-i 

63% IF RND>.5S THEN LET bE=t+i 

649 IF RND<.5S THEN LET b=b-i 

6570 IF a(<2 THEN LET a=ati 

669 IF a>359 THEM LET a=a-i 

678 IF b<2 THEI LET b=b+i 

623 LET Es - Ee Er t=9 THEM GO 
TO Saga 

689 IF b>153 THEN LET b=b-i 

694 PRINT AT a,bj INK 3$;"AB 
T a+1,b$ INK 75 PAPER 2; "DEE 
APER Q 

691 FOR i=i TO 19: MEXT is: BEEP 

«SO01,9IH 

695 G0 TO 599 

208 LKT ee175 LET ml 
0 PRINT AT GG, 1435)" * 
1,20? LET cmc-l 

“20 -PRENT AT Cc, 133 INK.P$4ºI": TI 
F c=a AtD b=13 OR c=ati AND E=13 


2 


qr. 


OR c=a AND b=12 OR c=ati AND b= 
12 OR c=a AND E=11 OR c=ati AND 
b=11 THEM GO TO 759 

"25 IF c=1 THEN LET z=ig: PRIN 
EA SÊ Es 

738 GO TO 14 

?S9% FOR i=b TO 5 STEP -1: PRINT 
AT a,ij IMK 75 FLASH 1; PAPER 3 
;J"ABC"sAT at+1,is INK 75 PAPER 2; 
"DEF": BEEP .25,i: PRINT AT a,i; 
Eo tar n41,14º “s MEXT i 

755 LET e=s+t 

769 FOR iza TO 19: PRINT AT i,5 
5 INK 735 FLASH 15 PAPER 3j/ "ABC"; 
AT 1i+1,55 INK 75 PAPER 2; "DEE": 
BEEP .25,i: PRINT AT íi,S$º" “SA 
T 1+1,55º “: NEXT à 

778 FOR iz=5 TO 19: PRINT AT 19, 
ij INK 75 PAPER 35 FLASH 1; "ABC" 
JAT 29,15 INK 725 PAPER 25 "DEF": 
BEEP .25,1: PRINT AT 19,is" . 
AT 29,19º "s MEXT i. 


784 FOR i=1í TO 16: PRINT AT i,i 
S; PAPER 94 FLASH 95" "2 -M 
EXT à 

"99 FOR 1=13 TO 3 STEP -1? PRIB 
T AT 19,i5 IMNK 25"RSºSAT 29,15 1 
HK 25" TU": BEEP .912,29: PRINT A 
To 37,417 “AT 28,47" ?4.0EXMST- à 
899 FOR i=i9 TO 19 STEP -1: PRI 
NT AT 1,35 INK 25 "BRS"JAT iti,55 
INK 25 "TU": BEEP .912,21: PRINT 
AS LasSP” “SAT 454,5)” “º MEXT 
i 

819 FOR iz=3 TO 25: PRINT AT 19,, 
ij INK 2I"BS"JAT 11,15 INK 25" TU 
“. BEEP .912,22: PRINT AT 19,i5º 

“SAT 11,495º "* MEXI + 

829 FOR i=i9 TO 9 STEP -i: PRIN 
T AT 1,255 INK 2/"BS"JAT 1+1,255 

INK 25" TU": BEEP .912,23: PRINT 

AT 1,251". PAT 143,20" + ME 
XT. 

g3a RESTORE 9299: FOR i=144 TO 
162: FOR n=€ TO 7: READ a: POKE 
USR CHR$ itn,a: NEXT n: NEXT i 
84g CLS : PRINT AT 9,8; PAPER 7 
: INK 23 "EEEEEEEEEEEEEEEEEEEEECEE 
EEEEEEEEE";AT 2,95 INK 25 PAPER 
EEE 

859 LET of$=* 

You are now in t 
he Entrance Hall. But the SUPER 
USLLY iz throuing sweets at vou 
£trom the tuck shop. You must dod' 
ge the food ani reach the UaLLY 


ALARM BELL. Then the nearest tea 
cher will suspend all the WALLY? 
831 . . o . q 

869 FOR i=1i TO LEM 0&-31i: PRINT 
AT 1,91 PAPER 15 INK Sjos(i TO 
i+31): BEEP .991,49: FOR j=9 TO 
Ss: NEXT j: NEXT à 

878 FOR i=1i TO 599: NEXT i 

889 CLS : PLOT 9,9: DRAW 255,9: 
DRAW 9,175: DRAW -255,9: DRAU 9 
,5-175: PRINT ATÉG,95 INK 75 PAPE 
R 2/5 "ENTRANCE HALL."JAT 9,25 PAP 
ER 954" : 

B99 PRINT AT 21,15 INK &; PAPER 

18 

"SAT 21,15 INK 63 PAPER 15"ºTim 

e: sa Hi : "gjhisar 21,215". By 

: "jas 

99% PRINT AT 19,291 INK &;" EQ" 
AT 11,294 IMK éSº "5 IMK 35º BB 
AT 12,294 INK 65"M"3 IHK 35"CDº 
SAT 13,294 IMK 65" Glam" 


919 LET O$S="1I JK L I JU KK LJ EL 
IE LE L SSELSLKES E 
L JL dE JLE ES EJLI JKLII" 


915 LET y=2: LET x=2: PRINT AT 
29,193 INK S; "MN": LET t=59 
924 FOR i=i TO LEN 08-28: PRINT 
AT 11,15 INK 745 PAPER 9jofti TO 

i+28): BEEP .891,49 
939 PRINT AT y,xs” "SAT y+1,x5 
nm a 

949 LET y=y+(INKEY$E="6" AND y<1 
9)-(INKEY6="7" AND y>2) 

943 LET t=t-1: IF t=9 THEN GO 
TO sgag 

944 PRINT AT 21,83 IMK &; PAPER 
“ASJt;” "2: PAPER 9 

945 LET x=x+(INKEY$E="8" AND x<2 
s)-(INKEYS="5" AND x>2) 

944 IF SCREENS (y,x)<>" " AND S 
CREEMNS (y41,x)<>" * AND SCREEHS 
Es, X41)<L>D" * AND SCREENS (,+1,x1 
114)” *” THEN GO TO 7994 

952 PRINT AT ;,x3 IMK 25 "RS";AT 

34 8,0] > 

96% HEXT à 

9794 G0 TO 929 
1909 FOR i=i TO é: BEEP .21,28: 
BEEP .91,21: BEEP .91,22: BEEP 
21,23: BEEP .91,22: BEEP .91,21: 

NEXT ií 
1941 LET s=5+t 
1919 FOR i=9 TO 5: PRINT AT i,35 

INK 25 "PO"JAT i+1,35"TU": BEEP 
.012,280: PRINT AT 1,35" ";AT i+ 
Ted". R$ WEMT | 


1920 FOR i=3 TO 39: PRINT AT S,i 
5; INK 25 "PO"JAT 6, i5"TU": BEEP . 
912,21: PRINT AT S,ij” "SAT 6,i 
pº  *s NEXT 1 

1939 FOR i=5 TO 19: PRINT AT 1,3 
9; INK 25 "PO"JAT 1+1,395"TU": BE 
EP .912,22: PRINT AT 1,395" "JA 
T iti,395º “: NEXT à 


AM4M FOR i=1 TO SG: NEXT i 


1959 FOR i=19 TO S STEP -1: PRIM 
T AT 1,303 INK 25 "PO JAT 1+1,395 
"TU" SAT 1+2,395 INK FI"ABSJAT it 
3,394 IMK 35"CDº: BEEP .912,23: 
PRINT AT 1,305" "SAT i+1,395" 
"JAT 1+2,395" "JAT I+3,I3D/ e: 
MEXT 1 | 
1949 FOR i=39 TO 3 STEP -1: PRIM 
TAT S,ij INK 25 "PO"GAT 4,i3"TU” 
SAT 7,145 INK SI"BB"JAT S,is INK 
31/"CD": BEEP .912,24: PRINT AT S 
Sd SMT Ads PRF RAI 
AT 6,15” "2 NEXT à 
1978 FOR i=5 TO 4 STEP -1: PRINT 
AT 1,35 INK 25 "PO"JAT i+1,35"TU 
"SAT 1+2,35 INK SI"ABP;AT 1+3,35 
INK 35"CQ": BEEP .912,25: PRINT 
AT A,S” "SAT 141,37" “JAT ds 
2,31" “SAT 163,37” “: NEXT 1 
1989 RESTORE 9979: FOR i=148 TO 
151: FOR n=9 TO 7: READ a: POKE 
USR CHRS it+n,a: NEXT nº: MEXT à 
1999 RESTORE 9199: FOR i=152 TO 
157: FOR n=Q TO 7: READ a: POKE 
USR CHRS itn,a: NEXT n: NEXT i 
112% RESTORE 9389: FOR i=156 TO 
149: FOR n=9 TO 7: READ a! POKE 
USR CHR£E itn,a: NEXT n: MEXT i 
1191 CLS : PRINT AT 21,73; PAPER 
2; INK 75 "HEADMASTER'S STUDY." 
1192 PAPER 9 


1119 PRINT AT 15,19; IMK 3;"EF 


IJk AB"JAT 14,19; INK 3$5"GH 
"4 INK 25 PAPER 25" LMN"S INK 3; 
PAPER 94" cp" 
1129 PRINT AT 2,95 INK 7; "Ha Ha! 
“5 INK 25 "RS"JAT 3,75 INK 25 "TU 
1139 FOR i=1i TO 199: NEXT i 
1149 FOR i=i TO 15: PRINT AT i,l 
93 INK 2; "O" sAT i+1,195 INK 725"P 
2": FOR-n=9 TO 19: MEXT n: PRINT 
AT 1414,10]3" “SAT 1,404" "2 BEE 
P .999,i: NEXT i 
1159 BEEP 1,-49 
1169 FOR i=i TO 15: PRINT AT i,i 
Ss; INK 2; "O" GAT i+1,155 INK 725"P 
9": FOR n=z9 TO 19: NEXT n: PRINT 


AT i+1,155" “SAT 1,155" "o: 
BEEP .999,1i: NEXT i 

1179 BEEP 1,-49 | 

1189 FOR i=1 TO 15: PRINT AT 1,2 
14 INK 25 "O"sAT i+1,215 INK 75"P 
e": FOR n=9 TO 19: NEXT n: PRINT 
AT 1+41,215" "FAT i,215" ": BEE 


.P .999,1: MEXT 1 


1199 BEEP 1,-49 
1195 PRINT AT 9,95 

1228 RESTORE 9424: FOR i=1 TO &: 
READ a: READ b: BEEP a/4,b: NEX 
Ti 

1291 LET c=1 

1295 FOR i=8 TO 6 

1219 PRINT INK cr"HI ==] y 

que 

1229 PRINT INK c+is"HIgp= a 

Ei So 00 E qe 

1239 PRINT INK c+2 "TT —s mm 
EI ss — * Na 

1248 LET c=c+3: IF c>7 THEN LET 
c=1 

1259 NEXT i 

1269 FOR iz=i TO 199: MEXT i 

1278 RESTORE 9999: FOR n=9 TO 7: 
READ a: POKE USR CHRS 144+n,a: 

NEXT nº: MEXT à 

1275 CLS 

128% GO TO eg2g 

”989 STOP 

7999 IF x=19 AND y=19 OR x=9 AND 
v=19 THEN GO TO igga 


38999 FOR i=21 TO 9 STEP -1: PRIM 


T AT i,a; PAPER q5" 

“+ BEEP .12,i 
. HEXT- À 
8995 RESTORE 9999: FOR n=9 TO 7: 
READ a: POKE USR CHRS 144+n,a: 
NEXT nº: MEXT à 


8919 BEEP 1,9: BEEP 1,5: BEEP 1, 


[ed 
* MEAD «x ss ETCORRIDOR 


cid 


Time . 61 Ha : a a Buy - ns 


ci AO ii 


a 


8929 PRINT AT 9,9; INK 3; PAPER 
21"Score ? "IBITAB 125º. Hi 2 "5 
hisTAB 235".By : “jas 

8939 IF s>hi THEN GO TO siga 
8949 PRINT AT 2,9; INK 4; PAPER 


2,5/"Unfortunatly ,you didn't get 


the High-score 


“ 

8945 FOR i=i TO 599: NEXT i 
Sesg PRINT AT 21,94; INK 2; PAFER 
71 "ARAPRESS ANY KEY TO PLAY AGAI 
H. BA” 
8969 IF INKEY$="" THEM GO TO 39 
em 
8965 CLS 
8067” LET == 
8979 LET of=" 

* HUDDLESTONMN" haz tra 
pped you in the Eack of the form 
room with desks. You must try to 
shoot Huddleston and escape thr 
ough the CYAKM door. . . . e 
8275 PRINT AT 9,94 INK 25 PAPER 
71" aAgagaaaaaaaaagagasaaagananana 
Aaa"jJAT 2,95 INK 25 PAPER 7;"anma 
aanagagaaaaaaanaganganaaaananar 


Base” GO TO 99 


8199 PRINT AT 2,95 PAPER 75 INK 
17º YOU HAVE THE HIGH-SCORE ' 
8119 INPUT PAPER 23 INK 7;"ºPLES 
SE ENTER YOUR INITIALS...... tm 


"ax. 3 letters) ? "5 LINE as - 


81224 IF LEM a$S<>3 THEN GO TO 81 
19 

8122 LET hi=s 

8125 PRINT AT 9,9; INK 35 PAPER 
”s "Score : "IsSIJjTAB 125". Hi é "5 
hisTAB 231º.By é "jas 

8134 GO TO 8945 

999% DATA 192,48,12,3,3,12,48,19 
2 

9919 DATA 255,254,254,255,128,25 
S,255,255,255,127,127,255,1,255, 
285, 233 

9913 DATA 15, 123,227,227,227,239 
,243,227,227,243,239,227,1653,227 
,123,13 

9916 DATA 195,195,69,24,24,69,19 
5,195 

9939 DATA 16,56,116,238,91,54,28 
518 

9949 DATA 255,139,139,124,68,68, 
49,44 

92959 DATA 252,139,139,68,72,939,9 


- 6,64 


906% DATA 255,136,136,73,73,73,4 


2,42,169,168,169,31,17,17,19,19, 
129, 128,128,2,5,7,5,521,9,9,9,95, 
68,71,68,55 

92979 DATA 15,16,161,225,99,119,1 
17,99,249,6,133, 135, 198,116,118, 
198,161,33,49,4947,47,39,16,15,133 
, 132,28,244,244,228,8,249 | 
9989 DATA 7,8,19,24,14,7,1,9,128 
5164,64,64,64,128,2,9,7,1,1,1,2,2 
,2,12,128,64,64,192,32,32,9,9 
G1MA DATA 3,4,9,18,9,15,9,9,255, 
9, 129,99,153,255,36,36,192,32,14 
4,89,144,248,144,144 

92119 DATA 255,239,234,239,234,23 
&,255,255,255,162,177,166,179,42 
, 255, 255,255,183,119,247,127,183 
, 255, 255 

9129 DATA 192,48,12,3,3,12,48,19 
2 . 


9139 DATA 195,195,69,24,24,69,19 
s,195 

9149 DATA 9,9,24,69,69,24,9,9 
9159 DATA 15,63,127,127,255,255, 
255, 255, 249, 252, 254, 254,255,255, 
255, 255 

9169 DATA 28,28,28,8,62,73,29,34 
,87,84,84,118,118,84,84,87,116,8 
5,85,117,117,85,85,86,9,9,9,76,1 
6,72,68,89,9,34,84,139,239,75,17 
1,9 

917% DATA 28,28,93,73,62,8,29,34 
9208 DATA 15,16, 166,233, 192,96,1 
95, 239,249,8,191,151,192,6,159,2 
47,175,47,47,47,47,39,16,15,245, 
244,244,244,244,228,8,249 

9218 DATA 192,46,12,3,3,12,48,19 
2 

9229 DATA 15,63,127,127,255, 255, 
255, 255, 255, 255,255,255,127,127, 
63,15 

9239 DATA 192, 249, 248,252,255,25 
s, 255, 255 N 


9248 DATA 4,6,31,69,69,248,96, 32 


10,24,68, 1902,102,69,29,92,9,8,28, 
28,62,62,28,9 

9259 DATA 8,28,58,119,46,28,8,9 
9269 DATA 99,111,159,191,129,255 
, 255, 255, 192, 249, 248,252,128,255 
, 255, 255 

9278 DATA 255, 255, 255,255,252,24 
8,249,192,9,7,67,134,76,39,19,9, 
32, 192,128,64,64,64,128,9 

9398 DATA 9,127,139,66,65,34,68, 
139,65,139,139,129,128,128,134,1 
21,9,9,211,47,1,66,189,8 

9499 DATA 1,29,9.5,29,9.5,29,1,2 
2,1,24,1,292,1,24,2,27 


Sem sombra de dúvida que a aviação teve um papel 
preponderante nas operações da Primeira Guerra Mun- "dl 
dial. São conhecidos os nomes de muitos dos heróis 
que, nessa época, inscreveram o seu nome nos anais 
da história, protagonistas que foram de duros e acro- 
báticos combates aéreos. 

Com a apresentação deste jogo, desenhado para o 
48 K, será possível reviver um desses combates pleno 
de emoção em que a perícia, a coragem e o sangue-frio, 
estarão sempre presentes. 

Poderão jogar dois oponentes que se enfrentarão num 
duro combate de que sairá vencedor o mais hábil. 
Para pilotar o seu avião nas quatro direcções possíveis, 
os dois jogadores disporão dos seguintes comandos: 


Subir Descer Esq. Dir. Disparo 
Jogador À — Q A Z X 1 
Jogador B - P L N M Z 


DADOS GRÁFICOS 


00 BORDER Q PAPER Q INK 2 Ç 


804 PRINT INK 6;AT 4,13; "EAGLE“ 

;AT 18,10;“01985 J-MPP' PAUSE 1 

80: CLS a sis ci sa 
810 PRINT AT -2,13; "TECLAS" 930 DATA 2458,256,110,60,60,60,6 
820 PRINT AT Z,O;"Arriba..... o. O,188,188,150,181,247,180,188,16 
Pose SAT D,0;"ADIIO rvrca De cad ;/212,0,0,204,0,51,0,0,0 

e sh” 11,0: "DercenDd..ceXo vous M 940 DATA 4,4,16,16,4,4,16,16,10 
ERAS” 13,0; IrquitrdaccoZoo cc. Ne! 6,148,65,160,128,72,107,148,46,2 
DE AM, O, PUBOD cerco cLocdc. a." 33 ,18,129,66,129,106,149 

830 PAUSE 2060 950 DATA 2,7,47,127,255,255,25S5 
900 FOR ;1=65368 TO 65495 ,/255,0,192,248,252,253,255,255,2 
985 READ n POKE 2: 28 NEXT i 55,0,0,80, - e 131 ; 195 ,231,255 10,33; 
910 DATA 191,136,61,255,33,191 99,247,255,255,255,255 
138,12,131,7,255,249,255,254,4,0 1000 PAPER 3: INK S: BORDER 3: B 
/193,224 ,255,159,255,127,32,0 RIGHT 2. CLS x 

: Rad 253,17,188,255,132,253 1005 PRINT INK G;AT 21,86; a cam 
Lá (d a 07 8,61,45 2 52 , ; 

, , 60 60/50 11656 51" E raia 1010 LET x=28: L y=0: LET m=0: 


pts tt pp 7 
TSM 


= 
IF INKEY$='"'q" THEN GO TO 20 


IF INKEY$='a'* THEN GO TO 260 
IF INKEY$<>"1'" THEN ' GO TO 2 


Es 
: 


2014 IF y>25 THEN GO TO 2025 
2017 IF x<>a AND x<>r THEN GO TO 


2018 IF (b-y<=6 "AND +0) (s 
4 0º ro Bose 
PRINT INK 3;A 


1<=6 AND s-y>0) THEN 
19 FOR z=1 TO 6: 
a MEXT Z: POR Ea TO 


F 
Ma INT NE ode; Ts MENTE: 
sr PE : 


LET di=b- LET dis=s-y: IF 
agi saiê THEN G “To 2 

E e dis-1): PRINT I 
«“""- NEXT z: FOR 2 
PRINT AT X,V42;* 


Er o TO 2023 
Oz For" z=1 To (di-1): 


z Eu PRINT IN 
+Z, Pegar N  <D. 
1% (sã 7º printTO BA x2 4,508 45 


PRI 
“ ES "A 


NT INK 1,87 à, Db: “RsAT r 
: 7ado 
4 5 LET 


Go 
F4SL OR ATTR 
2 INK 2,AT ni ns Mie; AT X 
E. 32 PRINT AT fagil 
20 =n: g=n 
ses ê co TÓ 2s0o 
LET x=x-1: IF x<0 OR ATTR (« 
9) <245 THEN GO TO 7100 
PRINT INK 2;AT mon; "EV;AT x 


f 5 “+ “+ 


: 2esaa 
207 LET x=x+1: IF x>21 OR ATTR 
 4X,9) <>45S THEN GO TO 7100 
PRINT INK 2;AT mn;"Ve;ar x 


PRINT AT 88º gen 
LET f=a: L g= 
LET izq=4: GO “TO 2500 


dE n=x: E 
E EN GC TO 21 


LET 

IF INKEY$="q" 
IF INKEy$='a” THEN GO TO 21 
THEN GO TO 2 


IF INKEvY$<>"1" 


IF y<6 THEN GO TO 2130 
IF x<>a AND x<>r THEN GO TO 


y-b<=6 AND y-b>0) OR ( 
THEN GO TO 212 


NT nog=n; o 


dizy-b: LET dis=y-s: IF 
HEN GO TO 2122 
Zz=s1 TO da det. 1 PRINT I 


2125 
(di-1): 
o o 2: : Mest, NEXT z . FOR 
à-1): PRINT AT x,y-z;" ": 


PRINT INK Shar a,b;"K's;AT Fc 


Er o A ? 

a 4. E IF y<0 OR ATTR ( 
HEN Go TO 7100 

RINT INK 2;AT en gS; x 


E a NT E; " * 
f=u: 5 g=n 


o LET -1: IF x<0 OR ATTR ( 
)<>45 THEN GO TO 7100 
O PRINT INK 2;AT m,n;“EV;AT x 


Psttnte! 


462 PRINT AT f,g;" " 
2165 LET f=u: LÉT g=n 
'2170 LET izq=3: GO TO 2500 
— 2175 LET x=x+1: IF x>»21 OR ATTR 
— Lk49) 6245 THEN GÔ TO 7100 
É ERR INT INK 2;AT mn; "RU;AT x 
“bibo PRINT AT fegii 
“2185 LET f=m: LÉ 
— 2190 CET izq=4: ço! To 2s0e 
* 2200 LET m=x: LET 

IF INKEV =" Z" MEN GO TO 22 


IF INKEvY$="x" THEN GO TO 22 


“l E£ k 
JNam 
om 
» o 


gas IF INKEy$<>“1" THEN GO TO 2 
* 2214 IF x<6 THEN GO TO 2230 

“o a y<>b AND y<>s THEN GO TO 

car den IF (x-a<=6 AND x-a>0) OR (x 
º -r<z=6 AND x-r>0) THEN GO TO esse 
E 2219 “OR Zz=1 TO 6: PRINT INK 3; 

E E=Z 4: "5". NEXT Z: FOR 2281 To. 
= 6: PRINT AT x=2,4;" “*: NEXT Z: 6 
| TO 2230 
| 2220 LET diz=x-a: LET dis=x-r: IF 
— dic<dis THEN GO TO 2222 
| 2221 FOR z=1 TI (dis-1): PRINT 1 
—- NK 3;AT x-z ago Cê: MEXT 2: FOR E 
=1 TO idas 1): PRINT AT x-z 944 * 
Re o NMEXT Go TO 2225 
"2222 FOR" Z= 1 TO (di-1): PRINT IN 
PINS AT x Z 4; Viv: NEXT z: FOR Z= 
A TO (gi 15: PRINT AT x-Zz,uy;' 
—  NEX f 


É 
— 2225 PRINT RM 2:07 a," ;AT € 
ye TO 78000 
x<0 OR ATTR (« 
1208 


PRINT INK 2;AT pe dá x 


é ás 59 TO. 2506 E 
U<O OR ATTR « 
alo co8s fnén* Gg To 7100 
2260 PRINT INK Ar mon; Cas AT x 


E PRINT AT gi: 
g se LET f=n: Cé 
| LET izq=2: GO TO 2500 


2275 LET y=9+1: IF 231 OR ATTR 
(x ,9) <>45 THEN GO TO 7100. 
2280 PRINT INK 2,AT m,n; “Mm; AT x 


PRINT-AT E 

Go TO 2see 

LET n=y 

INKEv$="2" THEN GO TO 23 
INKEv$="x" THEN GO TO 23 
INKEY$<>"1" THEN GO TO 2 


x>15 THEN GO TO 2330 
y<>b AND y<>s THEN GO TO 


(ta-x <=6 AND a-x>0) OR 
THEN GO TO 253 
PRINT EN NK q 


6: BRÍ 
2321 2er são x: . LET digszs =x: JF 
dicdis THEN GO TO 2323 


3;AT feita a NEXT Z: arid 


2323 FOR Z= 1 TO PRINT IN 
AT x+2,9; "5" E - FOR Z= 
1 Tô (gi 17: PRINTOAT X+2,9;" 


“NEXT 
asas PRINT INK 1; a” a,b; "RG AT Fr 


e». GO TO 700 
S350"LÉT xex+1. TF x521 or ATTR 
(X,4) <)45 THEN GO TO 718 


e340 PRINT INK 2;A7T hn, RC. x 
ES EM PRINT ed f 8. 
42 LET f=a: É é 


2350 LET Eh eta - IF yu<0O OR ATTR ( 
x É < aos HEN so TO 7100 . 

3 S60 PRINT INK 2;AT mn; “iv; AT x 
áséo PRINT AT f,9g;" * 

2365 LET Ff=a: LET g =n 
2370 LET izq= q TO 2500 

2375 LET gy=y+ di Sa OR ATTR 
(x ,4) <>545 THEN “eo T sa 

2380 "RINT INK 2;AT m,n;“W';AT x 
sBbo“F PRINT AT f,g;" * 
2385 LET f=m: 


E g9=n 
LET izq=1: GO TO 2500 
IF der=2 THEN GO TO 31086 
IF der=3 THEN GO TO 3200 
IF der=á THEN GO TO 3300 


LET rea: LET sab 
IF INKEY$="p“ THEN GO TO 30 
THEN GO TO 30 


INKEY $="L 

INKEvY $<>"0'*' THEN GO TO 3 
b>25 THEN GO TO 39028 
a<>x AND a<>m THEN GO TO 


y-b<=6 AND 
n-b>8) 
=1 TO 6: 
b + = NEXT Z:. 
6: “PRINT AT. a,b42;”" * 
O TO 3028 
3020 LET di=y- LET dis=m-b: IF 
di<dis THEN co TO 3022 
3021 FOR z=1 10. (dis-1): PRINT I 
NK 3:;AT a,b+z; NEXT z: FOR Z 
-=1 TÔ (died) PRINT AT a,b+Z;" 
“- NEXT Z: GO TO 3025 
goza FOR É 1 TO, (di-1): PRINT IN 
AT a,b NEXT z: FOR Z= 
1567 (gi la” 'prINT"AT a,b+z;" 


NEX 
a8es. PRINT INK 2;AT x,y; "Es AT m 
- GO TO 79000 
4028 LET b=b+1: IF b>31 OR ATTR 
(a,b) <»)45 THEN GO TO 7200 
3840 PRINT ENK I7AT €.8;"W"';AT a 


PRINT AT ek" 
3033 LET j=r: LET k=s 
O 1500 


a=3-1: IF a<2Q OR ATTR ( 
b)<>45 THEN GO TO 7200 
Sosa, PRINT INK 1;AT ros;"EUsAT a 


5062 PRINT AT j,k;" * 
3065 LET j=r: LET k=s 
E ds LET der=3: 
3075 LET a=a+i: IF 


(ta,b) <,45 THEN GO TO 7200 


3080 PRINT INK 1;AT c,s,'Vº;AaAT a 
bb; RT 

3082 PRINT AT s,k; 

SOS LET jsf LET k=s 

3090 LET der =4 GO TO 1500 

3100 LET r=a: LET s=b 

7 dd IF INKEY$= " THEN GO TO 38 
E bios IF INKEY$="L" “HEN GO TO 31 
E da IF INKEY$<>"'0'' THEN GO TO 3 
3114 IF b<6 THEN GO TO 31380 

Dé é ad a<>x AND a<>»m THEN GO TO 
3117 IF (b-y<=6 AND b-y>0) OR (tb 
-Nn<=6 AND b-n>0) THEN GO TO 3120 
3118 E. Zz=1i TO 6 PRINT INK 3;A 
Tt, As 6 tear NEXT z: POR 731 TO 
6: PRINT AT a,b-Z;'* NEXT 2Zz G 
O TO 3130 

3120 LET 1i=b-y: LET dis=b-n: IF 
di<dis THEN GO To 3122 

3121 FOR Z=1 TO (dis-1): PRINT I 

NK 3;AT a,b-Z;“=": NEXT z: FOR z 
si TO (dis=-1) PRINT AT a,b-Zz; 

*- NEXT Z: GO TO 341285 

3122 FOR Z=1 TO, (di-1): PRINT IN 

K 3;AT a,b-Zz;' NEXT z For Z= 
1 TO (di-1) 


- 


Pr + ExT 
aaa OR z=1 TO 


2156 ph I [2] f 

INT NK T x,U;"E";AT a 

Mio er eo Fi 4: 7860 b<B sm ATTR « 
= é < 

a,b)<>45 THEN 60 TO 7200 

3140 PRINT INK 1;AT cos;"";AT a, 

5141 PRINT AT j,k;" * 

SAS LET jar: É k=s 

3145 GO TO 1500 

3150 LET a=a-1: IF a<Q OR ATTR ( 

3,b)<545 THEN GO TO 2200 

3160, PRINT INK 2;AT c,s;“E;AaT a 

+ + 

3162 PRINT AT j,k;" " 

3165 LET j=r: LET k=s 

3170 LET der=3: GO TO 1500 

3175 LET a=a+1: IF a>21 oR ATTR 

(3,b) <>45 THEN O0 TO 72 

3160 PRINT INK 1;AT Fr ps a 

3182 PRINT AT j,k;: 

3185 LET j=r: LET E 

3190 LET mder=4: GO TO 1500 

3200 LETIr=a: LET s=b 

2210 IF INKEvy$="n" THEN GO TO 32 

3211 IF INKEvY$='m" THEN GO TO 32 

3212 IF INKEY$<>"0” THEN GO TO 3 

3214 IF a<6 THEN GO TO 3230 

pe + 7 Ai b<>y AND b<>n THEN GO TO 

3217 IF -x<=6 AND a-x>50) OR 


ta 
-n<=6 AND a-n>0) THEN GO TO 3228 
dis FOR, Rim 1 TO 6: PRINT INK 3;A 


,;b; NEXT z: FOR Z=1 TO 
“GR INT ár d-Zod q + MEXT £."QG 


6: 
oO TO 3230 
LET dis=a-m: IF 


PRINT I 
b;"«": NEXT z: FOR Z 
PRINT AT a-z,b;” 


AT a-z,b; Rr: NEXT 2: FOR Z= 

1 TÔ (di li) PRINTHAT a-z "e 
3eas PRINT INK 2;AT x, DTRAS “AT m 
G0 TO 7000 
$250 LET a=a-i: IF a<0 OR ATTR ( 
b)<>45 THEN GO TO 7200 
Sédo PRINT INK 1;AT ros;"EUiaT a 


4841 PRINT AT ks 
3242 LET j=r. CET K=s 

3245 GO TO 1506 

3250 LET b=b-1: b<0 OR ATTR « 
2 6) (748 THEN GO TO 2206 


3260 PRINT INK 1;AT r,s;ast;ar a 

3262 PR INT AT j s K 3 4 ” 

3265 LET j=r: LÉT a 

3270 LET der= Go TO 15 

327S LET b=b+1: IF b>31 or ATTR 

(a,b)<>45 THEN GO TO 720 

3260 PRINT INK 1;AT F, 2 mr; “AT a 

do62 PRINT AT j,k;* 

3285 LET j=r: LET Ra 

3290 LET der=1: GO TO 1500 

3300 LET r=a: LET s=b 

3310 IF INKEvY$="n" THEN GO TO 33 

3811 IF INKEY$='m“ THEN GO TO 33 

3312 IF INKEY$<>"0" THEN GO TO 3 

3314 IF àa>15 THEN GO TO 3330 

“A a b<>y AND b<>n THEN GO TO 

3317 IF (x-a<=6 AND x-a>0)º OR (m 

-3<=6 AND m-a>0) THEN GO TO 3320 

3318 FOR, Z=1 TO 6: PRINT INK 3;A 

F sa “+ NEXT Z; « FOR = TO 

6: RINt AT a+z,b;' NEXT z: G 

O TO 3330 

3320 LET di=x-a: LET dis=mh-a: IF 

dic<dis THEN. GO TO 3322 

3321 FOR z=1 TO (dis-1): PRINT I 
3: NT a4+2s;b; "ST NEXT z: FOR £Z 

=1 TÔ (ais-1): BRINT AT a+z,b;' 
NEXT z: GO TO 3325 

3322 FOR Z=1 TO (di-1): PRINT IN 
PAT asz,b;lir: NE : FOR Z= 

4 TO (gi): PRINT AT asz,b;” 

NEXT 

3323 PRINT ENK Q:AT Ra4:; “E SAT-R 

ho SE": GO TO 7000 

4340"LET a=a+1. IF a»31 OR ATTR 


(a,b) <>)45 THEN GO TO 7200 


3340 PRINT INK 1;AT c,s;"BU;AT a 
> Ds 

3341 PRINT AT j ” 

3342 LET jzr: ver” k=s 


3345 GO TO 1500 
3550 LET b=b-1: IF b<Q OR ATTR « 
b) <>45 THEN GO TO 7200 . 
Sása, PRINT INK 1;AT rs; ";AT a 


s5é62 PRINT AT j 
3365 LET j=r: ver dá 
Go TO 1500 


b>231 OR ATTR 
720 


Se ENT INK 2;AT r,s;"t;AT a 
3382 PRINT AT j5,&k; + 

338 LET sc LET k=s 

35390 LET der=zi: GO TO 1500 

7000 PRINT PAPER 2; INK Q;H0;"0OT 
RA PARTIDA?” (s/n a 


) 
aa S*- THEN G0 TO 10 
7220 IF INKEY$="n" 


THEN STOP 
7030 IF INKEY$<>"s" OR INKEY$<>“ 
nº THEN GO TO 7010 
ar PRINT INK 2,AT f,9;“Mº;AT m 
O 7000 


Go T [a 
260 PRINT INK 1;AT j,k;“MU;AT F 
SS, "E": GO TO 7000 


PRINT IN 


BOLETIM 
METEOROLÓGICO 


Já lhe passou pela cabeça fazer previsões meteoroló- 
gicas para o seu fim-de-semana? O passeio programado 
para o próximo domingo será estragado por uma da- 
quelas chuvadas de molhar a roupa interior ou, pelo 
contrário, poderá deixar o blusão de penas pendurado 
no armário? 
O seu Spectrum 48 K funcionará em termos de boletim 
meteorológico para as próximas 24 horas e o programa, 
testado e mais do que testado, dar-lhe-á garantias a, 
pelo menos, 80%. 
É colorido e bem divertido este programa que lhe pro- 
'pomos, mas não aceitamos reclamações nem fornece- 
mos qualquer tipo de comprimidos anti-gripais. 
E, já agora, compare os seus resultados com o Boletim 
Meteorológico. 


18 REM s4RRERERRERERRRERERERE 
* SPECTROMETEO + 
EEE EREEEEREEREERERE 


13 REM ana pessntsecaçenanas 
HARDY -1984 
EA RSA Sie Edo 
14 REM LE 5-9-S4 A ETAULIERS 


15 REM 

16 REM 

17 REM 

18 REM 

190 REM 44444H5HH354HH48H44444%E 
= DATAS DES VENTS * 


ERREI 


20 RESTORE as: DIM US (8,10): F 
| NEXT 


OR Fs=1 TO 8: READ (FP): E F 
25 DATA “NORD* > a RD-EST" "EST 
“, “"SUD-EST" , "SUD*, "“SUD-QUEST “0 


UÉST”, “NORD-QUEST “ 


25 REM da SAS ST DES ÉS dad 
DATAS DES SAISONS + 
 ELTRLERCLLRESCEASADAA 


30 RESTORE 35: DIM ae. 9): FO 
R f=i TO 4: READ s$tcr): XT f 
DATA “ETE " > AUTOMNEM, “HIVER 


EM 
40 POKE 23658,8: POKE 23609,20 
L O: GÓ TO 80860 


ERREI E 
+ INTRODUCT ION * 
EEEF 


| 28 PRINT “Pour vos previsions 


z besoin :*“*: PRINT : P 
n barometre": PRINT : 
e Ssavoir ta direction 


t 
INT : PRINT “En ce qui co 
er - niere,sachez 


ae 


ec- tion indique 
ette (de 1/Bene d 
* 


8; 'Lorsque vous 
e DES ctdus ces 
;5A7T mo: “1apas una 


= 
It 
Qmt 
Can 
novo 
Ta 
té 
Mú 
a 
Pd 
v 
D 
Cc 
(a 
m 


Ss REM REFERIR 
+DEBUT DE LA PREVISIONA 
ERES, 


100 GO SUB 9997 
1186 INPUT "Pression ten nu de ne 
5 + PRI 18; "pres 
Doo CiboaLET Pe (P>76S/ aa (578 
| +44 (Pp <n755) , Pes 
120 LET ma 
D,D; "Quelle e 
direction du vent” 4* "a 
130 PRINT : PRINT : PRINT “i--> 
NORD": PRINT “2--> NORD-EST". P 
03 -n2EST": PRINT "4-->SUD-E 


146 PRINT T8--28UD -OUEST”: PRIN 
NV "7=-— QUEST * : So. -— — 
“ESS "rupur eqaaat quE 

“No correspondant é 
v: IF v<i OR v>8 THEN "20 TO 150) 

151 PRINT AT 21,410; “vent 
PVBCU): GO SUB 9997 

1582 LET v=(v=1)+2F(v=2 OR v=3) + 


Se(tv=4á OR va5B) +4 5(vVv=6) +5E(v=7 OR 
1680 PRINT duel te est ta saison 
' PRINT PRINT 


3 : PR 
INT 1-- SETE: PRINT : PRINT "“2- 
- 2BUTOMNE': PRINT : PRINT “3-->H 
ao PRINT : PRINT “4-->PRINTE 


178 INPUT “No correspondant 9"; 
s: IF s<i OR s>4 THEN GO TO 170 
1741 PRINT AT 18,10; "“Saison 
"iSg ts): Go SUB 4997 

DO RESTORE 5 +1000+p 2100+v 410 
250 READ tá 

260 PRINT AB * 9; “SPECTROMETEO 
eleseracadar 
PRINT : PRINT : PRINT PRINT 
- PRINT : PRINT 

300 PRINT tê: PRINT US$: PRINT : 
PRINT AT 17,10; FLASH 1;“Tapez; 


C>Copiew+5>Suite 
18 IF IN NEY 4) Us" AND INKEYS<+> 


320 IF INKEY$6="C” THEN PRINT ar 


17 j 

co 

33O LET U=B: GO SUB 9997 

340 PRINT “Vous desirez :“: PRI 


NT : PRINT : PRINT “Z--sRevoir À 
a presentation": PRINT : PRINT “ 
2--sObtenir une avtre prevision” 
- PRINT : PRINT “3-->)Quitter Le 
progranmae ” 

3s IF INKEY$<“1“ OR INKEY$+U3" 


ent toujours a g. 


ç 
ih, 
k 
E 
. 
“ad 


THEN GO TO 356 
SEO IF INKEy$="1" THEN RUN 


370 IF INKPEyY$g="'2" THEN GO TO 18 
380 CLS . PRINT “Al REVOIR. sa 2 
PRUSE SQO: CLS : STOP 

994 REM 


995 REM 


FRESEEFEREFEEREFREEEREE 
«DATAS DES PREVISIONS + 
FERREIRA 


996 REM 


1000 REM sresrrrrrErrEsHREREREES 
+ ETE +» 
frrrrrErFrErrErrRrrERRREEE 


1110 DATA “Beau ou assez beavy.", 
“Journees chavudes ,nuits fraiches 


120 DATA “Beav.”", “Journees chau 

nuits fraiches.: : 

ô DATR “"Beau,mais orages poss 

es. T.es. chaud te jour,chauy 
1 


1140 DATA “Beau ou tres beav.: 
Chauyd ou tres chaud. 

1150 DATA “Beau.”, “Chaud dans ê, 
Journee,assez frais ta nvit 


1318 DATA, “Assez beau, ondees pos 
sibtes.'' ,“Assez chaud. 

1220 Dará "Beau ou assez beau ay 
ec parfois averses ovragevuses.: 
Chaud ou Sa chaud Le JOS , 

i ches.: 

2220 DATA “Beauv,avec possibilite 
d'aversesoragevuses.',“Chaud. 
1240 DATA “Beau, ondees orageuses 

ossibles.”, “Assez chaud. 
1250 DATA "Assez beau,mais ondee 
s possibltesennmontagne.“,“"Temnpera 
ture dovce.* 
13180 DATA '“Ondees ou averses ora 
geuses.'” ,"Temperatures douces .- 
1320 DATÁ “Pluie orageuses.","“Te 
mperature dovce.” 
133080 DATA “Temps Lourd et orages 


avec averses."“,“Chaud. 
1340 DATA “Temps Lourd et orages 
possibles.'”,"Assez chavud” 


1350 DATA “Ondees et averses ave 
Cc un peu devent." “Temperature d 


ouce.* 

1410 DATA “Pltuie et vent.',“Temp 
erature dovce.'* 

1420 DATA “Pluies orageuses avec 
un peu de vent.“",“Teaps tLourd e 
t humide.' 

1430 DATA “Averses oragevuses et 


vents viotents.'“,“Chaud et 
bhumide.” 

1449 DATA. "Drages et averses ora 
feuieda. ssez chavd. 

So DATA “Pluie à tendance orag 
Eq avec ent.',“Doux et humid 
SE 
1999 REM 
20800 REM A Seade 

+ AUTOMNE 


CRISFESEETEERCEEEEESEEE 
2110 DATA “Beau ou assez beav.: 
“Chaud te dOUr. Ge tees a craindre 
La nuiftae: 


120 DATA “Beau ou perez. beav.' 
Chateur noderee: getLees 
craindre.: 

130 DATA “Beau ou assez beavu.: 
“ASSsez chaud te jour, frais ta 


2140 DATA “Beau.” ,"Chaud ou asse 
Zz chaud te jour ,núits fraiches.”" 


2150 DATA “Beau ou moderement nv 
ageux.",“ChalLeur moderee te jour 


2210 DATA “Ondees 1 
“on O to “ E 
CSCE CERTA LASSSAMEaS, avec Cosas 
- “Assez beau, avec 
bilites d'ondees.”, Ayer posai 
jour et getees Locales. 
2230 DATA “Nuages moderes;ondees 
et eclair-cies.","Assez chaud.” 
2240 DATA “Ondees tLocales et ven 
ts faibles."” ,“"temperature dovce. 
eso DATA “Assez beau,avec ondes 
s tocaltes et giboutees en monta 
gnes.", Temperature douce,parfoi 
Ss Un pevfraiche. 
2310 DATA “Averses.”,“Temps frai 
2320 DATA “Ondees en ptaines,gib 
oulees en montagnes.“,“Temps fr 
153. 
2330 DATA “Nuageux,avec pluies e 
DE dg et vent modere."” ,“Tenps 
2340 DATA “Pluie possibles,vent 


modere.",“Temparature dovcêe. 

2350 DATÁ “Ondees en ptaine gibo 
montagne;vent faiíble. 
E «-“Temps frais.: 

2410 DATA "“Averses de pltLluie ou d 
e neige.","Temnps froid et temper 
ature en baisse.'" 

2420 DATA "“Averses oragevuses et 


sent modere.', “Temps frairs 
2430 DATA “Pluie et parfois aver 
ses oragevses avec vents 
assez Forts"”, emperature douce., 
2440 DATA “Pluie et vent fort.' 
“Temps doux et hunide.” 
2450 DATA “Fortes pluies et vent 

Fort, bourrasques de neige 
en montagne”, “Tenps FPA Ss 


2999 REM 
3000 REM rrrRrR=rrRRErrErErRRaeX+ 
AM HIVER * 
RAE 
3110 DATA. "Beau avec tendance a 
ta brume etau brovillard.“,“Temp 
erature fraiche.” 


+ + DATA “Beau ou assez beau,un 
brumevux."“,“Journees f 
OA dai et getees nocturnes.” 
3138 DATA “Beau OU assez,parfors 
brumeux.", "Temperature moderee 
nuits froides ;gelee 


3140 DATA “Beau ou assez beavu,br 
umes.”, “Temperature douce ou ass 
ez douctele JouFf;getees nocturnes 


3150 DATA “Beau et un peu brumeu 
x.“ ,“Temnperatures moderees le jo 
Ur; fortes gelees ita nuit. 

3216 DATA “Assez pe :igibouLees 


* 
5228 DAT "Tem E brumReUX ; gibovte 
es ou neige”, roid. 
5230 DATA "Assez beau a moderemne 
nt nvageux avec ondees possibles 
«“"s“"Temperature dovuce.: 
sas o DATA “Que lques nvages, ondee 
Ss . “Temperature fraiches.' 
3586 DATA “Moderement nuageux, gi 
tovulLlees en montagne.",“Froid. 
Gs o mad do “Neige OU giboulees." 


o sida “Neige OU gibovutees.* 


33930 DATA “Pluie possiblte,avec “v 
ent fort.! , "Temperature douce.” 
3340 DATA “Pluie ou neige avec v 
ent." ,"Temperatue dovuce.” 

3380 DATA “Gi boutees ou neige.”", 


Oid. 
as DATA “"Neige et vent parfoirs 
dtent."  ,“"Proóide. 
z450 DATA *Giboulees, neige possi 
RA, modere a âssez FOOT: 


“FC 
Sa 50. DATA “Pituie ou neige fondue 
»avec ventsforts.' » "Temps assez 
froid,parfois doux.' 
3Zásod DATA “PlLuie ou neige avec 


ant violent”, “Temperature douce. 
450 DATA “Pluie et bovurrasques, 
ou neige.C ,“Froide.” 

3999 REM 


4D00 REM trrRERrrRErIErRRERREE+ 
- P EMPS * 


ELEFEEERERERRErRERErE 
118 DATAS “Beau ou assez beav.:'. 


4220 DAT 


“Journees chavdes, nui ts fraiches 
«ge Lees matinales.” 

4120 DATA “Beau ou assez beavu.”, 
"“Journees douces ou assez chauds 
sNuits fraiches;getees ESTES 


| 4130 DATA “Beau ou assez beavu.' 


“"Journees chaudes ,nuits Rat dae é 


' 4148 DATA “Beau. ,“Assez chaud.' 
' 41580 DATA "Beau." ,“Assez chaud 

| ans ta journee, 
| joqtess possibles au petit mas 


| 4210 DATA “Ondees ou giboultees.” 


á 
frais ta nuit 
i 


“Tenperatures fraiches.' 
A “"Gíiboutees.",“Journees 

fraiches, nui ts froides; gelees 
a craindre 
4238 DATA “Assez beau ou ondees 
orageuses."”,'“Journees un peu cha 
udes ,nuits Unpeu fraiches.” 
4240 DATA “Ondees ou averses.".” 
Temperature douce.” 
4250 DATA “Nuageux,avec ondees » 


ossibltes; gibou uteês en montagns 
«“, “Temps cais. 

4316 D A “Ondees ou giboulees.” 
«"Temnperature fraiche. 

4320 ATA “Ondees ou iboultees 3 
vec vent.”","Temps frais.' 

4330 DATA “PLluie ou averses aver 
un peu vent.",“Temnps doux.” 
4340 DATA “Pluie et vent assez Ff 

ort." ,“"As z doux.* 
4350 DATA “Ondees en ptaine,gibo 
Pad ua en montagne.'',"Temps fra 


4410 DATA "“Pluie ou neige avec «v 
ent. darere perature basse.' 


4420 A Ondces giboutees ou a 
verses orageuses;neige en mo 
ntagne.Ventfaiblte ou modere.“,“T 


emperature basse.” 
4430 DATA “Pluie et vent assez Ff 
Ort. bata PSlúie é douce.” 


442480 ATA “Pluie et vent assez f 

orte” "Temperature douce.: 

4450 “BATA 'Pluie en plaine,neige 

a montagne.”, dr 4 rios fra 

7800 REM 

79080 REM rsrsr. 
* PRESENTATION * 
frrsrEFrLEEFRrEFEREEREr 

7995 REM 

7399 


REM 
8028 PAPER 4: INK 4: BORDER 4: €C 


LS 

8910 FOR f=1 TO 22: PRINT PAPER 
É "= NEXT f- PAPER S: INK S: BO 

8920 FOR f=0 TO SsPI STEP PI/20 


1280 
8238 DRAW INK 6; Robo f + ( (RND+420) + 
30) SIN fe( (RNDE2O) +30) 


8945 REM rr 
om PET IT NUAGE * 
EEEF EE 
B950 RESTORE 806806: FOR fz=USR “a” 
TO USR “av+87: READ a: '“BoKE f,a 
- NEXT f 
8060 LET 1L=13: LET c=2: LET Zell 


8063>PRINT AT L,c; INK 7; ABCDE 
3064 PRINT AT L+1,C; INK 7; "FGÊEH 
965 PRINT AT t+2,€; INK 7;" LM 


3070 IF z=2 THEN so To s1iee 

8071 LET L=S: LET c=20: LET Zz=2: 
B0 TO 8063 

3980 DATA 2,0,92,1,BIN 20000011.8 
IN 29000011, BÍN 28000111,BIN 860 


1111 
3881 Da sá ,0,0,8IN 11111118,25S 


S 
3282 DATÃ B,8,8,2,BIN 10000111,5 
IN 190011111,BIN 190111111,255 
»,0,BIN 9111i111,255 


, BIN 120000000 , BIH 
120090 ,BIN 11109 


1,BIN 200220111,8B 
20001111,BIN aés 


a 
0001111,8IN 20011 
+, BIN 11101111,25 
2 

8 

1 


i 
I 
2200 , BIN 1120090 
IN 11119008, BI 
111900,BIN 1111 


a 4 

8 DATA BIN 9090011111,BIN 090011 
“BIN 00011111,8BIN 126011111,8B1 
a 24000111,BIN 2D0CR 
f 
3 


c 


ANS ZrD ZE Chin 


1120,BIN 11111108,BIN 11111100 ,81 

"5 1111109080,5BIN 111180000,5BIN LE 

222 ,BIN 112200008 

35295 REM FrLLERLLLELELLLEREHHRE E 
- GROS NUAGE BLANC + 
ELLER RARA RT 

&296 >REM 


3120 RESTORE 8150: FOR Ff=USR “a” 


TO USR “a'+127: READ a: POKE F, 
AT 14,47; INK 7;" ABC - 


PASRE 
a” 


PRINT AT 15,17; INK 7;"GHEH 
16,17; INK 7; "JE 
17,17; INK 7; "LEMN 


12, BIN 20000911, IN 
0011111,BIN 2681 


“e 
11 
gBIN 21111100,255,2 
BIN 209000011,BIN 1 
5,2 Ss 
.265,265,255,255,25 


v 
pu 
Ls 
3 
D 
- 


IN 11108082, BIN 1 
11908.5IN 41111118 


55 
2,20,90, BIN 1110800 


99090011 BIN 
261 Tai 


E dio 
po O pos 


E PA a E dci 
a 
"Ho O» pH 9H SUGS- »D 


READ ND - 


55,255 

S, BIN 411111 
100 ,8IN 1111 
, 127, 127,127,182 
411180,BIN 41111 
BIN 11111888 
11209008, BIN 116 
411111,BIN 09611 
BIN 
211 
BIN 


DEZ RDUSHS=GACRANHA DQ 


pp pp GR ph GH 


0SPOAGRAGPrSARIASDRSO 


pelo» De - OR SNODH- 
* pa 


- HZP 


pHODEA DrDpH- Mb 


» 926: 


20920111,8, 


2 
BIN 111800 
2200001,8, 


S,BIN 90 


Z »ZOHPZ VJPHPZNZ-»OOSSPrLA 


1 
a 
11, 
2a 


pi- 

Q 

D 

E) 

[é] 
Su 
V- 
SP pr 
SU mr 
Sun 

E] 

q 

Sn 

Sm 

A 


pá 


41111180,BIN 12 
2, BIN 11111808 
11 2,20,28,80,0 
REM tHEXHF rr 


* PERSONNAGE SOURIANT + 
ERERFERRRRERERREERERE EE 


ti ORA FIDPrOASFOSZSO 
pOr pp 
A ARA 
SD 
pá 
pao 4 DA 
[e 
H 
Zn 
é] 
ra O 
Gr 
pá pi 
* pOpH 


REM 
RESTORE 8171: FOR f=USR “a” 
uSR “asas: READ a: POKE f,a 
ATA 0,8,6,1,BIN C20000110,B 
21200;,BÍ 262 
2,20,0 BIN 120090000 ,BIN 211 
BIN 92010028, BIN 2190918008, 
221008 
ATA BIN 202190108,BIN 00018 
IN 20021000, BIN 20000116,1, 
26610000. BIN 111090000,8,8,8, 


eos 
dt 


D 
28 
2, 
2, 
Do 
2D 
: 


ZrLIZOO JZONO 
Aa 996"m Ss 


(DS DD ++ 4 CO TD GS ds O 
or H- RAHOOZE 


PLOT 79,180: DRAÚ 4.-9: PLOT 


“AT 18,9; “CD” 
RAU É,5. PLOT 79,17: DRAU -7,7 
35198 REM ERESRLSSRLERARREHELETE 
* Lere MUSIQUE 
RELFRERIFRELEELEEEREE 
8200 RESTORE 8230: FOR f=1 TO 8 
8210 READ h,d: BEEP d,h 
8220 NEXT Ff 
230 DATA 12,.3,9,.57,69,.87,9,.- 
10,.3,12,.33,21,.52,21,.52,17, 


3 

6 

240 RESTORE 82760: PAUSE 20: FOR 
f=1 TO 8 

2SQ2 READ h,d: BEEP d,bh 

260 NEXT Ff 

= DATA 12,.3,9,.63,9,.3,10,.3 
a 


3 
+ 
S 
& 
S 
3 
& ,.93,12,.52,12,.52,10,.4 


290 REM FrEFIHHLILLELIHLHLLHAHHAHA* 
* GROS NUAGE NOIR ET + 
* PLUIE x 
EFFECT A A A 
3300 RESTORE 8338: FOR f=USR “a: 
O USR “a''+159 
8318 READ a: POKE Ff,a 
35320 NEXT F | 
S330 DATA 0,2,0,0,BIN 2000090011,5 
IN 00011111,BIN 21111111,255 
2331 DATA 0,0,0,BIN 01111111,255 
, 255, 255,255 
é&332 DATÁ B,0,B,BIN 12000008, BIN 
11100001,BÍN 11111011,255,255 
8333 DATA 8,0,BIN 00001111,BIN Q 
1111111,255,265,255,255 


E 
E 


= 


o 
Be 
E 


w 


35334 DATA SP IN 20011110,255,255 


4 Í 
8335 DATÃ Q,0,BRIN 1110000Q,BIN 4 
ji1io00 255, 255,2 5,255 


3336 DATA 2,0,90,0,B1IN da asa ri 
IN dllcados, - BIN 1111200980,BIN 


8337 DATA 1,BIN 000200111,8IN G0R 
Q1111,8IN 000901111,BIN 00011111, 
N 266 aa 


BI 11111,BIN 00111111,8BIN 
111111 

8338 DATA BIN 11000000, BIN 11118 
228, BIN. 11111000,BIN 11111118,25 
5,255,255,255 

2339 BATA! 2,0 ,BIN 0B020011,BIN Q 
2201111,BIN 2009011111,BIN 9011111 
1,8IN 21111111,255 

8340 DATA BIN 09111111,BIN 09811 
111,BIN dedo Sabina 255,255,255 
Ed 

8341 DATA 255,BIN 11111118,BIN 1 
1111110, '8r IN 1111119080,255,255,255 
+ 

38342 DATA 2,8,80,0,0,BIN 192000000 
«BIN 11111000,BIN 11111110 
8343>DATA 1,BÍIN 200020011,BIN eos 
20111,BIN 000900111,5BIN 00001111, 
BIN 06001111,8IN 220001111,BIN 
9344 DATA BIN 19900000, BIN 111900 
2200 ,BIN 11110000,BIN 111110808,B1I 
N 11111100,8IN 11111100,8IN 1111 
1110,BIN 11111118 

8345 DATA BIN 000601111,BIN 00981 
111,BIN 20001111,BIN 20006111,BT 
N 20000011,0,2,8 

8346 DATA 255 àSs,2s5,255,255,BI 
N91111111,61N 00611111,8ÍN gêga 
8347 DATA BIN 11111110,BIN 11114 
110,BIN 11111110,8IN 111111908.B1T 
N 11111000,BIN 11110000,BIN 1119 
22000, BIN 112000038 

38348 DATA 1,BIN 200010,BIN 004 


,BIN 31 1900000), SIN isgeoeea 
DIM Es(22,26 


= 
3418 RESTORE sáas: Mine-. f=1 TO 22 
: REAR - aa R Estm= as: NEXT FF 


a E 2 
8435 DATA .. e... .. te .... F .... á “a... E s... 
ad FOR c=1'TO 26: FOR L=4 TO 1 


8452 PRINT AT l-1,32-c; INK Q+rt 
2=9) 472;EB(L,1 TO c) 

8458 NÊX (: NEXT Cc: PRINT AT S, 
O;: FOR f=1 TO 22: PRINT INK O+(í 
f>2=90) 47; PRPER 1;" EO Cr): 
NEXT f: BORDER 1 


0465 REM srrrrrIIrrrLLIsIHILHES 
* PERSONNAGE PARAPLUTE + 
tEFEHERILHELELLRERERERRREE E 
34668 REM 
32470 RESTORE 8475: FOR f=USR “a” 
TO e. 45%: READ a: POKE f,a 


| NEXT 

8475 DATA 8,0,0,1,BIN 29000118 
0001000: BÍN'B9810010,5IN G40 

20008: BÍN B6B10000.» BIN SiBB ico, 


1800,BIN 000010800 ,BIN 20000118,1, 
1,1,1,BIN 1200012000, BIN 9190019080, 
“oi S0010000, BIN 111000208,0,0,8., 


Sage INK Ss: PAPER & é PLOT 79,16: 


8481 INK O: PLOT 71,24: DRAU 8,1 

9: PLOT 92,36: DRAW -48,8,1.5 

848s REM CETRLFSISLLILSLSSFITAA 
:. 2eme MUSIQUE * 


CELL RERERRRRRR EA 
3490 RESTORE 8530 
8500 FOR f=1 TO 


XT 
8539 DATA 7,.3,10,.5,7,.3,18,.85, 
A ade SS A ED A ij E . 


Es 2. S, 2. 17 , «6 


see PRINT “ar PAPER 3: FOR 
f=1 TO Rê: PORE' 25698, 10: PRINT 


NEXT CLS 
86528 INK 2! “FOR F=0 TO 31 
5630. EE f$=20 THEN PRINT AT Ff,14 
essa IF F5=6" AND f<=25 q THEN PRIN 
f =S5, 8;º '“;a”r BB: “ne . 
5550 IF f>=6, AND e t=Sê THEN PRIN 
AT f-6,3 AF - fas; = 
8560 IF f>=9 ANÓO f<=29 THÉN PRIN 
T AT f-o,22;* -8,22; "6" 
5879 IF Saia ARO f<=31 THEN PRI 


AT ([-11,2;" “;aAT f — 18,2; em 
8880 NEXT Ff 
5586 PRINT AT 21,311 er 
39 <=7 THEN PRINT AT 21,22 


sbba IE f<=18 THEN PRINT AT 21,F 
8830 IF f<=S5 THEN PRINT AT 21,F+ 


940 NEXT Ff 7 
945 PAUSE 20 
90 FOR f=9 TO 4: PRUSE 2: PRIN 


O sbras "td TAP CCE; TALE 
“+ MEXE Ff 
955 PAUSE 
960 FOR f=0 TO 5: PRINT AT. Ff,2s 
INK SS; (a + “ AND f/2-I (Fs/ 
IDC + * *"* AND F 2 TNT (F/2) 
20);AT F+1,25; "“GRELE": NEXT F 
3965 PAUSE 
970 LET ag='TORNADES'": FOR f=7 
O 1 STEP -1: PRINT AT 17,8, INK 
S;as( TO : 
930 FOR f=0 TO 19: PRINT AT 17, 
1 INK 6; “4,886: NEXT F 
2. Pé fm? 2 8 STEP e PRIN 


"2 MEM 


age FOR f=28 “a 2 STEP -4: PRIN 
T B,f; INK 6;ag+” ". NE 
ÓR' F=8 TO' 17: PRINT AT $ 2 
NkK 6;a8;AT f-1,2; 


s0zo PAUSE 20: FOR =30 TO 24 ST 

-1: PAUSE 3: PRINT INK 4;AT 1 

Lo FirU 14) RT AB, Fi NE CIAT 13, F; CN 
NEXT F 


o ANO 4 :+AGOGN 
s 


.. E ã Es - e x .. 
agés PAUSE o 
902656 REM EoTrrrassasraREsAaA aa 
+. XPL ICAT IONS * 
EPs dada ESSES DD 
2238 DIM asiao : RESTORE 9040 
é FOR f=1 TO 24º “é EAD ags(tf): NEX 
sao DATA FREDDY HA 
pele PRESENTE: 


3904 1 es = 


Ea 
. .. 


qB42 DATA “ SPECTROMETEO 
= HIHETHEFERE E + 
* liga ? .. 
.. , .. 
od .. 


9043 DATA “ 


+ 
.. 


I 
aus4 DATA " me 
GRENQUILLE", 


E CLMNO 
“gRla TOR em 
=“, "ABCDEFG 
918 


2196 FOR (=i6 TO S STEP ai: LET 
3196 F PRINT AT Lc; : FOR E=1 To 
22-l+2: BEEP .03,0: PRINT TAB 
; PAPER 1;3$1L5E, edi TO 18-CoisT 
3208 REM a 

+ + 

h) THERMOMETRE ET x 
% GRENOUILLE 3% 
EEFREFRRERLERERERARE 


+ 
RE 93180: ee F=USR “A” 
E AN ç78. READ A: POKE F,A 
F 
La) 


TA 60,66,66,129,129,129,1 
129,129, i29,129,129, 129,1 
129, 143,1298, Sd 5": és, 16, 


é 4 + ', 
AºSéS é 
,34 o, 252,25 2 ,ês2 83.8 
dBs6 Ba4 3, 28 2:0,8, S 
Ss 2,0 0,0,0.0,192,128,0 
T AT €,0;: FOR F=1 TO 9 
PA 


PAPE 
ER 


9 
YGz 


o 
dera 
No) 


Es 


VS LOWOU Lú 
fo 
Ra 
S 


Tee TUM ++ AM == RZOS 
VOANDO 
Dec gêe.s 


4 


TO O tias 7; PAP 


O DX MD DIO 


O =-- TIGONNO- pp OM 
DD: mM - Gê MÓRDI 


O--nhD = 


NEXT 

TO 21. PRINT AT Ff, 
(1): NEXT f: PRINT 
9350: FOR F=USR “A” 
67: READ A: POKE F, 


v 
D 
n 
'DODuOTO HOMO + 


9340 FOR F=16 TO 21: PRINT INK 4 
- PAPER 12; A$(F): NEXT F 
9350 DATA 8,0,8,0,0,0,0,3,0.0,0, 
3,0,45,200 2,0,6,0,0,7,8,16,98, 
.8,7,120,128,0,0,0,0,0,255,0,80,0 
0:0/12,48,102.0,0,0,0,0,120,132 
“és 136,112,3,124,64,192,66,2,1 
5,112,126,96,16,0,6,0,0,0,1 L,ê, 
9:8,1/2,262,6,16,16,32,64,128,0, 
2.8.8.0,0. 2:0,6,0.7,8,80,0,80,8, 
a 2: 128/32,81,0,9,28,32,64,126 
'6,216,32 /192,0,0,0,0,4,4,4,7,4, 
é 6,4,52,92,64,192,65,56,6,1 
2466 DATA 0,0,0,0,248,7,0,248,0 
2,0,0,0,0,128,112,16,92,32,65,85 
"65/1249, 129,129,190,132,8,6,16,3 
5 64,4,82,1,0,0,0,0,0,128,64,48,1 
56, 162,1),14,1.6,1,0,0,0,252,3,2 
ss 8,44, 4,2, 16,246,44,129,129,85 
4 82'112/166,4,5,126,0,128,54,32 
.24,71,282,0,0,2,0,0,0,128,0 
378 FÓR F=USR “A” TO UÚSR “Av+ss 
“READ A: POKE F,A: NEXT F: PRIN 
Lo INK a; PAPER 1;A$S(22): PAUSE S 
9390 GO SUB 9997: PAUSE 100 
9400 PAPER 1: INK 7: PRINT AT O, 
3; "SPECTROMETEO 

FPF 


to Es 
A Tão 
à 404 


PRINT : PRINT : PRI 


“2410 PRINT : | 7 
NT “Ce progrenas va vous pernett 
re de realiser vos propres prev 
i- Sions meteoroLlogiques...“: P. o 
RINT : PRINT “L'algorithme princ 
ipat est base sur une sethode ni | 
se av point par L'abbe MOREUX “a 
ipal est base sur une methode mi : 
se av point par L'abbe MOREUX 
(1867-1954) .": PRINT PRINT “Ce ts 
tte methode donne 80% de ch E 
ances de reussite pour des Pc 
gvisions d'une echeance de 24h” 
9420 PRINT AT 18,180;“Pour contin * 
ver ,";AT 19,10; “tapez une touche 
so": PAUSE x A 
9430 GO TO 60 ar 
9996 REM FELERREFIEHHRFERHELHERAE = 
+" "55 PROGRAMME “CLS” + 
EEEFEPILRERERRRRRRRRRE 
2997 LET f8=" as” 
o LET b$=" Má 
9998 PRINT AT 0,0;: FOR f=0 TO 1º + 
5: PRINT PAPER E > NET Ff: LE TM 
=1 THEN PRINT AT +90; : RETURN a 
9999 FOR f=17 TO 2 PRINT AT Ff, 


3; PAPER 1; b%8: NEXT f: PRINT AT 
»: RETURN 


BOA PESCA 


O «Jogo das Famílias» é bem conhecido de todos. 

A sua simulação para o Spectrum vem dar um novo 
aliciante a este jogo porque, desta vez, o seu parceiro 
não é um qualquer. 

O programa distribuirá uma mão para si e outra para 
o Spectrum e cada um dos parceiros pedirá ao outro 
as cartas do valor que lhe interessa para completar a 
família. Mas só poderá pedir cartas dum dado valor 
se tiver em mão pelo menos uma do valor que pedir. 
Quer dizer: se tiver, por exemplo, um rei, pedirá ao 
Spectrum todos os reis que ele tiver. Como é evidente, 
o seu parceiro fará o mesmo e nenhum dos dois poderá 
reter em mão qualquer das cartas pedidas. Se o jogador 
a quem foram pedidas cartas tiver alguma desse valor, 


1998 LET Update=9598 
1918 LET end= 2608 
1828 GO SUB 9899 


1938 
1948 FOR n=1i TO 13 
1959 LET Dt(n) =n 


1969 LET D(n+13)=n 

1979 LET Din+26)=n 

1989 LET D(n+39)=n 

1998 NEXT n 

1199 

1119 FOR n=1 TO 52 

1129 LET a=INT (RNDXS2+1) 
1139 LET b=INT (RNDXS2+1) 
1149 IF a=b THEN GO TO 1138 
1159 LET c=Dta) 

1168 LET D(a)=D(b) 

1178 LET D(b)=c 

1189 NEXT n 

1199 + 

1299 FOR n=1 TO 7 

1219 LET a=D(n) 

1229 LET Pla)=P(a)+1 

1238 LET b=D(n+7) 

1249 LET S(b)=Stb)+1 

1259 NEXT n 

1269 

1278 BORDER 5: PAPER 5: INK 8: 
38 


aparecerá no écran a mensagem «GOOD FISHING» e 
as cartas serão adicionadas ao total das cartas do 
jogador que as pediu. Quando o total das cartas do 
mesmo valor, na mão de cada jogador, for de quatro, 
será conseguido um «book» e o primeiro jogador a 
conseguir sete «books» ganhará o jogo. 
Se o jogador pedir uma carta que o oponente não 
tenha, aparecerá a mensagem «GO FISH» e o jogador 
terá que ir buscar outra carta ao monte passando, 
para o oponente, o direito de jogar, a menos que a 
carta tirada do monte corresponda ao valor da carta 
pedida. Neste caso o jogador continuará a jogar. 
Não se esqueça do aviso que lhe fizemos no princípio: 
o seu oponente é muito forte. 

CLS 


12894 PRINT PAPER 6; BRIGHT 15AT 
8,123º FISH 

1299 PRINT PAPER 2; BRIGHT 15 IT 

NK Z5AT 3,95" PLAYER "Spb;AT 3,2 
;*º SPECTRUM "j;sb 

1399 PRINT PAPER 1; BRIGHT 15 1 

Ne 752808 0,W NM 345678 9º 

ro E” 

1314 FOR n=9 TO 13 

1329 PRINT PAPER 6; BRIGHT 15AT 
n, 58º 

1339 NEXT n 

1348 

2999 REM PLAYER"S TURN 

2819 

2920 GO SUB Update 

2938 INPUT PAPER 9; INK 7; BRIG 

HT 1;"WHICH CARD ? "; LINE AS 

2048 IF AS(1)="T"º THEN LET c=19 
: GO TO 2109 

2950 IF AS(1)="]J”" THEN LET c=11 
: GO TO 2199 

2860 IF AS(1)="0" THEN LET c=12 
: GO TO 2199 

2078 IF A$(1)="K" THEN LET c=15 
: GO To 2109 


E áires "5 


: G0 TO 2199 

2998 LET c=CODE A$-48: IF c<1 OR 
- €>13 THEN GO TO 2938 

- 2199 IF P(c)=8 THEN PRINT BRIG 
HT 15 PAPER 7; INK Z;AT 18,115 F 
LASH 15" CHEAT *: FOR n=1 TO 258 
2 NEXT nº: PRINT AT 18,115" 

“*: GO TO 2939 

2119 IF S(c)=9 AND top<53 THEN 
PRINT AT 18,12; PAPER 2; INK 7; 
BRIGHT 1; FLASH 15" GO FISH ": F 
“OR n=1 TO 259: NEXT n: PRINT AT 
18,125" ": GO TO 2598 


“,95 PAPER 15 INK 73 BRIGHT 1; FL 

— ASH 14º GOOD FISHING ": FOR n=1 

TO 259: NEXT n: PRINT AT 18,9;" 

é “: LET flag=1: LET 

—- Plc)=P(c)+S(c): LET S(c)=9: LET 

: Ttc)=1: GO SUB Update: IF P(c)=4 
THEN LET pb=pb+1i: LET T(c)=8: 

GO SUB Update: GO SUB end: IF pb 

1 =7 THEN GO TO 9798 

2138 IF flag=1 THEN LET flag=8: 

— GO TO 2938 

— 2148 GO TO 3999 e 

2599 LET d=D(top): LET top=top+i 

: LET P(d)=P(d)+1: GO SUB Update 

: IF P(d/=4 THEN LET pb=pbtl: L 

ET T(d)=9: GO SUB Update: GO SUB 
end: IF pb=7 THEN GO TO 9798 

2518 IF c=d THEN PRINT AT 18,9; 

i PAPER 1; INK 7; BRIGHT 15 FLASH 

É 15” GOOD FISHING ": FOR n=1 TO 

258: NEXT n: PRINT AT 18,95" 

“IRA *: GO TO 2938 

— 2528 PRINT AT 18,8; PAPER 7; FLA 

— SH 1; BRIGHT 1;" You fished a "; 
— 2539 IF d>1 AND d<11 THEN PRINT 

PAPER 7; FLASH 1; BRIGHT 1;d;" 
“: GO TO 2799 

2549 IF d=1 THEN PRINT PAPE 

R 75 FLASH 1; BRIGHT 15"ACE "* 

- GO TO 2799 

2559 IF d=11 THEN PRINT PAPE 

R 7; FLASH 1; BRIGHT 15"JACK ": 
GO TO 2799 

2569 IF d=12 THEN PRINT PAPE 

R 75 FLASH 1; BRIGHT 1; "QUEEN ": 
GO TO 2799 

2578 PRINT PAPER 7; FLASH 1; BR 
IGHT 1; "KING " 

279098 FOR n=1 TO 259: NEXT n: PRI 

NT AT 18,85" 


J998 REM , SPECTRUM'S TURN 


3819 
SO28 LET emi 


SOJA IF T(e)=i AND S(e)>9 AND St 

e)<4 THEN LET f=e: GO TO 3I969 
S949 IF e<i3z THEN LET e=e+1: GO 
TO SS 


TA 


2128 IF S(c)>9 THEN PRINT AT 18: 


Pd 
e- gr 


3959 LET 4=INT (RNDXIS)+1: IF St: 
4)=8 OR S(£)=4 THEN GO TO 3959 
3969 PRINT PAPER 2; INK 7; BRIG 
HT 15 FLASH 15AT 21,95" HOW MANY 


3978 IF 4=1 THEN PRINT PAPER 
2; INK 75 BRIGHT 15 FLASH 15"AC 
ES *,: 60 TO 3280 

3989 IF 4=11 THEN PRINT PAPER 
24 INK 75 BRIGHT 15 FLASH 15"JA 

CkS " : GO TO 3299 

3999 IF 4$=12 THEN PRINT PAPER 

25 INK 75 BRIGHT 1; FLASH 1;"QUE 

ENS ": GO TO 3299 

3199 IF €=13 THEN PRINT PAPER. 

25 INK 75 BRIGHT 15 FLASH 15"KIN 

GS ".: GO TO 3299 

3119 PRINT PAPER 2; INK 7; BRIG 

HT 15 FLASH 15€5""'s " 


3299 INPUT " a 


LINE AS 
3219 LET c=CODE A$-48: IF c<9 OR 
C>13 THEN GO TO 3299 

3228 PRINT AT 21,95" 

3239 IF P(f£)<>c THEN PRINT AT 1 

8,11; BRIGHT 1; FLASH 1;" CHEAT 
"7: FOR n=1 TO 259: NEXT nº: PRINT 
AT 18,115" *: GO TO 3869 

3235 IF c=9 AND top<53 THEN Go 

TO 3269 

3249 LET S(4)=S(F)+P(F): LET PÍí4 
)=8: LET T(f)=9: LET flag=1: GO 

SUB Update: IF S(f4)=4 THEN LET 

sb=sb+1: GO SUB Update: GO SUB e 

nd: IF sb=7 THEN GO TO 9799 

3259 IF flag=1 THEN LET flag=8: 
GO TO 3929 

3255 GO TO 2999 

3269 LET c=D(top): LET top=top+1i 

3279 LET S(c)=S(c)+1: GO SUB Upd 
ate: IF S(c)=4 THEN LET sb=sb+s1 
: GO SUB Update: GO SUB end: IF 
sb=7 THEN GO TO 9799 

3275 IF c<>4 THEN GO TO 2999 

3289 PRINT PAPER 1; INK 7; BRIG 

HT 15 FLASH 15AT 18,95” I FISHED 
A "Ss 

3299 IF c=1 THEN PRINT PAPER 
15 INK 25 BRIGHT 1; FLASH 15"ACE 
" : GO TO 3599 

3399 IF c=11 . THEN PRINT PAPER 
15 INK 7; BRIGHT 1; FLASH 1;“JA 

CkK * * GO TO 3599 

3319 IF c=12 THEN PRINT PAPER 
15 INK 73 BRIGHT 1; FLASH 15"QU 

EEN " : GO TO 3599 

3329 IF c=13 THEN PRINT PAPER 
13 INK 75 BRIGHT 1; FLASH 15"KI 

NG " : GO TO 3599 

3339 PRINT PAPER 1; INK 7; BRIG 

HT 15 FLASH 15c5º " 

3599 FOR n=1 TO 258: NEXT n: PRI 


RR =“ ds sh 


40 


2sS3g PRINT PAPER 2; INK 7; BRIG NT AT 18,9%" 

HT 15AT 3,8;pb;AT 3,39;sb GO TO 3929 

9549 RETURN sgga REM SET -UP 

95549 2910 

24907 REM CHECK FOR FINISH 9929 DIM P(13): REM Player'"s 
92619 9939 DIM S(13): REM Spectrum's 
96298 LET checkli=9: LET check2=9 99494 DIM D(52): REM Deck 

9639 FOR 1=1 TO 15 | 9959 DIM T(13): REM Spec's loses 
94498 IF S(1)>9 AND S(1)<4 THEN 29869 DIM A$&(2): REM Request 

LET checkli=1 2978 

2659 IF P(1)>9 AND P(1)<4 THEN 2989 LET top=15: LET flag=9 

LET check2=1 2999 LET pb=9 : LET sb=9 
2669 NEXT 1 2199 POKE 23658,8 

26798 IF checkl>9 AND check2>9 9119 RETURN 

THEN RETURN 9289 

2689 9599 REM UPDATE 

2729098 REM END OF GAME 9519 

9719 95294 PRINT PAPER 9; INK 7; BRIG 
97298 INPUT PAPER 95 INK 7; BRIG HT 1487 19,355" PIREtEHIST CIPE 
HT 15" ANOTHER GAME 72º; LINE AS PII) CSPI4IP” CRP(S)S” "SPL 
9739 IF AG(1)="Y" THEN GO SUB 9 6) 4 "4847 4 PPT PP FPP ÍIDIL” 
gaga: GO TO 1948 P(IO 4 PPT" PIPÍIIZ)S” Ch 
97498 STOP P(I3)]* * . 


ads sai SR ha bat “ w' 


DIGIONARIO 
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Gompuiadores 


Anthony Chandor 
John Graham — Robin Williamson 


Com cerca de 3000 termos e expressões do vocabulário 
informático actual, este dicionário é indispensável pela 
extensão e diversidade de informação que fornece, pela 
clareza e rigor dos conceitos definidos e pela importância 
do índice alfabético remissivo. Um volume de 519 páginas. 


UMA OBRA DE REFERÊNCIA 
A TER SEMPRE À MÃO... 


ENS 


DICIONÁRIOS di DOMINGOS BARREIRA 


Um lançamento da 


Fl 
Cada vez mais todos sentimos que pe 
os computadores se tornam parte É 
da nossa rotina quotidiana: as ' 


revistas que lemos sao impressas 
por computadores; Os arquitectos 
desenham as nossas casas com a 
ajuda de computadores; os nossos 
recibos dé ordenados são impres- 
sos em computador; pagamos factu- 
ras emitidas por computador atra- 
vês de cheques identificados por 
simbolos susceptíveis de utiliza- 
ção informática, pagamentos esses 
que dão origem à emissão via com- 
putador de extractos bancários. 
Enfim, poderiamos referir um sem 
número de exemplos a este propô- 
sito. Mas, ainda mais directamen- 
te ligados com as máquinas estao 
aqueles que deles se servem no 
seu trabalho de todos os dias - 
cientistas e gestores de stocks, 
empregados de escritório e direc- 
tores, soldados e marinheiros, 
contabilistas e engenheiros - pa- 
ra além do crescente número de 
técnicos responsáveis pelo fun- 
cionamento da máquina a todos os 
níveis. Cada um de nôs, leigo, 
utilizador ou têcnico de computa- 
dor, sentirã por vezes dificulda- 
des na terminologia informática. 
O objectivo deste livro & preci- 
samente o de constituir um meio 
acessível de resolução de proble- 
mas desse tipo. 


ó eprTORIAL Domingos [faheita 
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